cond
*.nrg 2999 >
*22 0 =
start
7 22 store
stop

cond
*22 0 >
start
-1 *22 add 22 store
stop

cond
*22 6 =
start
50 .repro store
stop

cond
*22 5 =
start
13 .tie store
stop

cond
*22 4 =
start
314 .aimdx store
stop

cond
*22 3 =
start
*22 971 store
50 .repro store
stop

cond
*22 1 =
start
24 .tie store
stop


cond
*.robage 0 =
start
1 .deltie store
stop

cond
*.robage 10 >
*23 0 =
start
5 23 store
stop

cond
*23 0 >
start
-1 *23 add 23 store
stop

cond
*23 4 =
start
13 .readtie store
24 .tiepres  store
stop

cond
*23 3 =
start
500 .fixlen store
stop

cond
*23 2 =
start
24 .readtie store
stop




'here we go...

cond
start
110
899
store
stop

cond
*890
2
=
start
0
890
store
stop

cond
start
*890
1
add
890
store
*890
897
add
.tmemloc
store
*.tmemval
0
sub
stop


end
